home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / TRACEC.for < prev    next >
Text File  |  1991-04-13  |  570b  |  23 lines
  1.         SUBROUTINE TRACEC(X,Y,NPTS)
  2.     IMPLICIT NONE
  3.     INTEGER NPTS,I
  4.         REAL*4 X(NPTS), Y(NPTS), VX, VY
  5. C
  6. C       THIS SUBROUTINE TRACES THE LINE FROM X(1),Y(1) TO
  7. C       X(NPTS),Y(NPTS) WITH APPROPIATE CLIPPING.
  8. C
  9.         INCLUDE DIGLIB$KOM:PLTSIZ.PRM
  10. C
  11.         REAL*4 AREA(4)
  12. C
  13.         CALL GSSCLP(XVSTRT,XVSTRT+XVLEN,YVSTRT,YVSTRT+YVLEN,AREA)
  14.         CALL SCALE(X(1),Y(1),VX,VY)
  15.         CALL GSMOVE(VX,VY)
  16. 10      DO 100 I=2,NPTS
  17.         CALL SCALE(X(I),Y(I),VX,VY)
  18.         CALL GSDRAW(VX,VY)
  19. 100     CONTINUE
  20.         CALL GSRCLP(AREA)
  21.         RETURN
  22.         END
  23.